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EDTSCHMEMESS = Erase the message Line 18-sep-1984 $330:38 VAX-11 Bliss-32 ye’ sact Page 1 
14-Sep-1984 12:22:2 ISKSVMSMASTER: CEDT.SRCICHMEMESS.BLI;1 (1). 
l 


0001 Q ZTITLE "EDTSCHMEMESS = Erase the message Line’ 
000 8 MODULE EDTSCHMEMESS ( ' Erase the peasone Line 
Bonz y oe = 'v04-000' ! File: CHMEMESS.BLI Edit: JBS1010 
0005 i BEGIN 
a'd4 i leuennenennceanennenereeneneennrerererererertrntrertentenernntentrnernentetts 
i 
0009 1 !* COPYRIGHT (c, 1978, 1980, 1982, 1984 BY * 
0010 1 i* DIGITAL EQUIPMENT CORPORATION, WAYNARD, MASSACHUSETTS. * 
oot) : - ALL RIGHTS RESERVED. * 
. ® 
0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 !* INCLUSION OF THE BOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
id ' ‘* TRANSFERRED. & 
if ® 
0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
oss ; :* CORPORATION. * | 
7* ® 
0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
it $4 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. *® | 
0027 1 !* * 
it : ‘cea ht isk allah tindilli 
0030 1 
0031 1: !+4+ 
O08¢ : FACILITY: EDT -- The DEC Standard Editor | 
0034 1 | ABSTRACT: 
0035 1! 
b038 : This module erases the message Line. 
+33 : : ENVIRONMENT: Runs at any access mode - AST reentrant | 
0040 : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
0042 i MODIFIED BY: 
0044 1 | 1-001 - Original. DJS 04-Feb-1981. This module was created b 
0045 1! Sutrecting the routine EDTSS$ERA_MSGLN. from module CHANGE.BLI. 
0046 1 ! 1-002 - Regularize headers. JBS 27-Feb-1981 
0047 1 ! 1-003 - Fix module name. JBS 02-Mar-1981 
0048 1 ! 1-004 - Erase both message Lines. SMB 21-Jun-1982 
0049 1 ! 1-005 - Reset EDTSSG_LASTMSG. JBS 05-Jul-1982 | : 
0050 1 ! 1-006 - Erase to end of screen instead of two lines gaaereteny. SMB 31-Aug-1° 32 
0051 1 ! 1-007 = Move clearing of message flag. SMB 06-Oct-1982. 
0052 1 ! 1-008 - Restore the cursor after clearing the message line. JBS 09-Oct-1982 
0053 1 ! 1-009 - Change the call to erase screen. JBS 235-0ct-1982 | 
sit: ! 1-010 - Don't restore the cursor if it has no current location. JBS 17-Jan-1983 
0056 1~— 
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EDTSCHMEMESS = Erase the message Line 
Declarations 


a038 } RSBTTL ‘Declarations’ 
09 § 1 ' TABLE OF CONTENTS: 

060 1! 

061 1 

36) i REQUIRE "EDTSRC:TRAROUNAM'; 
5 ¢ 1 FORWARD ROUTINE 

203 ! EDTSSERA_MSGLN : NOVALUE; 
0505 1! 
05 1! INCLUDE FILES: 
05 1! 
0508 1 
0509 1 REQUIRE ‘EDTSRC:EDTREQ'; 
0644 1 
0645 1! 
0646 1 ! MACROS: 

0647 1! 
0648 1! NONE 
0649 1! 
0650 1 ! EQUATED SYMBOLS: 
0651 1! 
0652 1! NONE 

0653 1! 

0654 1 ! OWN STORAGE: 

0655 1! 

0656 1! NONE 
0657 1: 
0658 1 ! EXTERNAL REFERENCES: 
0659 1! 
0460 1! In the routine 


! Erase the message Line 
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:CEDT. 
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reg Pa 
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EDTSCHMEMESS = Erase the message Line bese $1984 23:50:4 VAX=-11 Bliss-32 V4.0-74 Page 3 
EDTSSERA_MSGLN = erase the mersege Line 14-Sep-19 4 $3:39;39 DL SKSVMGMASTERSLEDT  SRCICHMEMESS.BLI-4” (3). 

$6) } ZSBTTL "EDTSSERA_MSGLN = erase the message Line’ 

oe8 1 GLOBAL ROUTINE EDTSSERA_MSGLN ! Erase the message Line 

664 1 : NOVALUE = 

0665 1 

pees 1 $e 

bees : FUNCTIONAL DESCRIPTION: 

0669 1! This routine erases the message Line if there is currently a message 

0670 1! on it. 
0671 1! 
067 1 ! FORMAL PARAMETERS: 
0675 1! 
0674 1! NONE 
0675 1! 
0676 1 ! IMPLICIT INPUTS: 
0677 1! 
0678 1! EDTS$G_MSGFLG 
0679 1} EDT$$G_TIN_ECHOFLG, 
0680 1! EDTS$$G_TIN_ECHOPOS 
O681 1 EDT$S$G_MESSAGE_LINE, 
0683 1 ! IMPLICIT OUTPUTS: 
0684 1! 
0685 1! EDTS$G_MSGFLG 
0686 1! EDT$$G_TIN_ECHOFLG, 
0687 1! EDT$$G_TIN_ECHOPOS, 
0688 1! EDTS$G_LASTMSG 
0689 1! 
0690 1 ! ROUTINE VALUE: 
0691 1! 
0692 1! NONE 
0693 1! 
0694 1 ! SIDE EFFECTS: 
0695 1! 
0696 1! May erase the message Line 
0697 1! 
0698 1 !-- 
0699 1 | 
0700 2 BEGIN 
0701 2 
0702 2 EXTERNAL ROUTINE 
0703 2 EDTSS$SC_POSCSIF, ' Put cursor position in format buffer 
B08 § EDTS$SC_ERAALL; ! Erase to end of screen 
0706 § EXTERNAL 
0707 EDT$$G_TIN_ECHOFLG, 
0708 2 EDTS$G_TIN_ECHOPOS , 
0709 $ EDTS$$G_MESSAGE_LINE, ! The Line number for messages | 
0710 EDTS$$G_MSGFLG, ' Indicates a messege has been displayed 
0711 2 EDTS$S$G_LASTMSG, ' The last message displayed (1 = none) 
Orie 2 EDT$$G_CUR_COL, ' Current column 
gels rd EDT$$G_CS_CNO; ! Current Line | 

| 

0715 LOCAL 
0716 OLD_CS_LNO; 

0717 
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EDTSCHMEMESS EDTSCHMEMESS = Erase the message Line 13-5e -1984 50:4 VAX-11 Bliss-32 V4.0-74 Page 4 ED 

_V04-000 EDTSSERA_MSGLN = erase the message Line 122808= 1986 $3:39:5 DISKSVMSMASTERSLEDT  SRCICHMEMESS.BLI-4° (3) vO 
; 148 71 \¢ ; 
; «61469 71 ' Check for message. : 
\; 131 rs) § 
3 : 
is 1 : 7 ; IF (.EDTS$SG_MSGFLG NEQ 0) OR (.EDT$$G_TIN_ECHOFLG) ; 
s 95 7 THEN F 
: 1546 724 BEGIN 3 
: 186 $7 3 i*p h d ho fl 
: ' Reset the message and echo flags. . 
487 0759 8 ie 
s 1583 0728 EDTSSG_MSGFLG = 0; : 
: 159 07 9 EDT$$G_TIN_ECHOPOS = 0; : 
; 160 730 EDTS$G_TIN_ECHOFLG = 0; ’ 
s 16) 0731 EDTS$$G_LASTMSG = 1; $ 
3 16¢ Oras '¢ ; 3 
; 1 073 ! Erase the message Lines. | : 
> «164 0734 fe ; 
: 165 0735 OLD_CS_LNO = .EDT$$G_CS_LNO; | : 
> 166 0736 EDTSS$SG-CS_LNO = .EDTS$G~MESSAGE_LINE; ; 
: 167 0737 EDTSSSC_ERAALL (); 3 
: 168 0738 3 EDT$$G_CS_LNO = .OLD_CS_LNO; ; 
: 169 0739 ; '¢ 3 
: 170 0740 ! Restore the cursor. 3 
. Fry 0741 3 !- : 
: 172 pee ; 3 
5 if? Lt 3 IF (.EDT$$G_CS_LNO GEQ 0) THEN EDTS$SC_POSCSIF (.EDT$$G_CS_LNO, .EDT$$G_CUR_COL); : 
: 175 0745 2 END; 3 
s 176 0746 2 3 
s Uy 0747 1 END; ! of routine EDT$SERA_MSGLN | : 


IDENT \V04-000\ 


.EXTRN EDTS$SC_POSCSIF 
-EXTRN EDTSSSC-ERAALL, EDT$$G_TIN_ECHOFLG 
-EXTRN EDT$$G_TIN_ECHOPOS 

-EXTRN EDTSS$G_MESSAGE_LINE 
-EXTRN EDTS$G_MSGFLG, EDT$$G_LASTMSG 
-EXTRN EDTS$G_CUR_COL, EDT$$6_CS_LNO 


| 

| 
-TITLE EDTSCHMEMESS EDTSCHMEMESS - Erase the message | | 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


003¢ 00000 -ENTRY EDTSSERA_MSGLN, Save R2,R3,R4,R5 ; 0663 | 

55 000000006 00 9€ 00002 MOVAB EDTS$G_MSGFLG, R5 ; | 

54 000000006 00 9€ 00009 MOVAB EDTS$G_TIN_ECHOFLG, R4 ; | 

53 000000006 00 H 00010 MOVAB EDT$$G~CS_CNO, R ; | 

65 D5 00017 TSTL  EDTSSGMSGFLG : 0722 | 

03 12 00019 BNEQ =:*1$ ; | 

| 39 64 £9 00018 BLBC = EDTS$$G_TIN ECHOFLG, 2$ ; | 
| 65 D4 OOO1E 18: CLRL —— EDTS$G“MSGFLG : 0728 | 
| 000000006 00 D4 000 CLRL —- EDT$$G-TIN_ECHOPOS > 0729 | 
| 64 D4 00026 CLRL —- EDTS$$G~TINTECHOFLG : 0730. 
| 000000006 99 01 DO 00028 MOVL #1, EDTS$G"LASTMSG : O73) 
| 63 D0 0002F MOVL  EDT$$G_CS_CNO, OLD_CS_LNO : 0735 | 
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Routine Base: 


! <BLF /PAGE> 


88 bytes, 


; Routine Size: 


r ne 


Elapsed Time: 00:30.6 
Lines/CPU Min: 4072 
ey A age 10586 
Y Used: 63 pages 
eee ation Complete 


1 
| EDTSCHMEMESS EDTSCHMEMESS - Erase the message Line \ be. zee 1984 VAX-11 Bliss-32 V ge 6 
“Vb4=600 EDTSSERA_MSGLN = erase the message Line Sep 1984 $33 33: 35 DISKSVMSMASTER: ce i SRCICHMEMESS. BLI; i (4) | 
> 181 750 1 END | of Le EDTSCHMEM | 
l3 189 078) } of module E EMESS 
3 18 752 0 ELUDOM 
' 
| | 
; PSECT SUMMARY 
; Name Bytes Attributes | 
: _EDTSCODE 88 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
| 
3 Library Statistics | 
cal fe ak eS | bets Syabols oo-<se<- Pages Processing | 
: File Total Loaded Percent Mapped Time | 
> _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
3 ~$255$DUA28:CED7.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | 
| 
| 
; COMMAND QUALIFIERS 
; Bh Lp mE CR Or ELD, NE TEAL. cOPT BASLE DORIPRACEOAEE LE. SOM SS HEIERE SEER ERIS CHMERE SS MSRC$: CHMEMESS.BLI/UPDATE=(ENHS$: CHME 
Size: 88 code + 0 data bytes 
Run Time: 00:11.1 
| 
| 
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